home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
emailm_1
/
vbemail.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-08-18
|
2KB
|
74 lines
VERSION 5.00
Begin VB.Form frmEmailMessage
Caption = "Email Message using Outlook 98"
ClientHeight = 4215
ClientLeft = 60
ClientTop = 345
ClientWidth = 7035
LinkTopic = "Form1"
ScaleHeight = 4215
ScaleWidth = 7035
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdSendEmail
Caption = "Send Email"
Height = 495
Left = 240
TabIndex = 6
Top = 3480
Width = 1215
End
Begin VB.TextBox txtBody
Height = 2535
Left = 1920
TabIndex = 5
Top = 1440
Width = 4695
End
Begin VB.TextBox txtSubject
Height = 285
Left = 1920
TabIndex = 3
Top = 960
Width = 4095
End
Begin VB.TextBox txtEmailUser
Height = 285
Left = 1920
TabIndex = 0
Text = "email@domain.com"
Top = 480
Width = 4095
End
Begin VB.Label lblBody
Caption = "Enter Body:"
Height = 255
Left = 120
TabIndex = 4
Top = 1440
Width = 1575
End
Begin VB.Label lblSubject
Caption = "Enter Subject:"
Height = 255
Left = 120
TabIndex = 2
Top = 960
Width = 1575
End
Begin VB.Label lblEmailUser
Caption = "Enter Email address: "
Height = 255
Left = 120
TabIndex = 1
Top = 480
Width = 1575
End
Attribute VB_Name = "frmEmailMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdSendEmail_Click()
Call SendMail(txtEmailUser.Text, txtSubject.Text, txtBody.Text)
End Sub